home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
text
/
quilldem.lha
/
Demo
/
Rexx
/
IndentLeft.quill
< prev
next >
Wrap
Text File
|
1995-08-29
|
1KB
|
55 lines
/**
** $VER: IndentLeft.quill 1.0 (30.9.94)
** By Timothy J. Aston
**
** Outdents the current line, or all lines with the currently marked block
** left by a tab.
**
**/
/* Some setup first.
*/
options results
options failat 200
TAB = d2c(9)
main:
/* Make sure rexxsupport.library is there, just in case we need it.
*/
if ~show(l, 'rexxsupport.library') then do
if ~addlib('rexxsupport.library', 0, -30) then do
'REQUESTNOTIFY' '"Could not build project:'NL' · libs:rexxsupport.library not installed"'
exit 10
end
end
/* Get the starting and stopping lines.
*/
'GETATTR PROJECT MARKINGBLOCK VAR' markingblock
if markingblock = TRUE then do
'GETATTR PROJECT BLOCKSTARTLINE VAR' startline
'GETATTR PROJECT BLOCKENDLINE VAR' endline
'MARK'
end
else do
'GETATTR PROJECT LINE VAR' startline
endline = startline
end
/* Take a tab away from the beginning of each line.
*/
'GOTOCOLUMN' 1
'GOTOLINE' startline
do i = startline to endline
'GETLINE'
if left(result, 1) = TAB then do
'DELETECHAR'
end
'LINE' 1
end
exit